home *** CD-ROM | disk | FTP | other *** search
/ Uru - Ages Beyond Myst Bonus / Uru - Ages Beyond Myst Bonus CD.iso / main.dxr / 00015_Global functions.ls < prev    next >
Encoding:
Text File  |  2003-10-09  |  1.6 KB  |  56 lines
  1. global gLanguage
  2.  
  3. on FinalQuit
  4.   go(1, "Credits")
  5. end
  6.  
  7. on MOF Language
  8.   sprite(1).stop()
  9.   sprite(1).visible = 0
  10.   unloadMember(member("main"))
  11.   gLanguage = Language
  12.   szQuicktimeDir = ib_ReadRegKey("HKEY_LOCAL_MACHINE", "SOFTWARE\Apple Computer, Inc.\QuickTime", "InstallDir", EMPTY)
  13.   if szQuicktimeDir <> EMPTY then
  14.     szQTFile = szQuicktimeDir & "\QuickTimePlayer.exe"
  15.     szQuicktimeVersion = ib_GetFileVersion(szQTFile)
  16.     if szQuicktimeVersion <> EMPTY then
  17.       szQTVersion = chars(szQuicktimeVersion, 1, 1)
  18.       iQTVersion = integer(szQTVersion)
  19.       if iQTVersion < 4 then
  20.         InstallQT()
  21.       end if
  22.     end if
  23.   else
  24.     InstallQT()
  25.   end if
  26.   sound(1).stop()
  27.   go(1, "MOF")
  28. end
  29.  
  30. on musiques NbMusic
  31.   MusicsList = ["AirStream", "Convergence", "SporeMe", "YeeshasTheme"]
  32.   sound(1).stop()
  33.   sound(1).queue(member(MusicsList[NbMusic]))
  34.   sound(1).play()
  35. end
  36.  
  37. on musiquePause StateNb
  38.   if StateNb = 1 then
  39.     sound(1).pause()
  40.   else
  41.     sound(1).play()
  42.   end if
  43. end
  44.  
  45. on InstallQT
  46.   TextesList = ["F├╝r das 'Making Of'-Video ist ein Quicktime-Player erforderlich. Wollen Sie jetzt den Quicktime-Player 6.3 installieren?", "Le Making of n├⌐cessite le player Quicktime. Voulez-vous installer Quicktime 6.3 ?", "Per vedere questo filmato ├¿ necessario il Quicktime player. Vuoi installare il Quicktime player 6.3?", "The Making of requires Quicktime player. Do you want to install the Quicktime player 6.3?"]
  47.   lResult = ib_MessageBox(TextesList[gLanguage + 1], "Ubisoft", "YesNo")
  48.   if lResult = 6 then
  49.     ib_CreateProcessWait("Quicktime 6.3\QuickTimeInstaller.exe")
  50.   end if
  51. end
  52.  
  53. on uruLive
  54.   ib_OpenFile("http://www.urulive.com")
  55. end
  56.